home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.06 Jun 90 / Timing Files / TimingTest.p < prev    next >
Encoding:
Text File  |  1989-05-26  |  460 b   |  28 lines  |  [TEXT/MPS ]
  1. PROGRAM TimingTest;
  2.  
  3. USES Timing;
  4.  
  5. VAR    i: INTEGER;
  6.     t1, t2, t3: Timer;
  7.  
  8. PROCEDURE Dummy; BEGIN END;
  9.  
  10. BEGIN
  11.     unitComp := 0;
  12.     InitTimer (t1);
  13.     InitTimer (t2);
  14.     InitTimer (t3);
  15.     StartTimer (t3);
  16.     StartTimer (t1);
  17.     FOR i := 1 TO 100 DO { empty loop };
  18.     StopTimer (t1);
  19.     StartTimer (t2);
  20.     FOR i := 1 TO 100 DO Dummy;
  21.     StopTimer (t2);
  22.     StopTimer (t3);
  23.     Write (t1 * MsPerClock: 16: 3);
  24.     Write (t2 * MsPerClock: 16: 3);
  25.     Write (t3 * MsPerClock: 16: 3);
  26.     WriteLn;
  27. END.
  28.